home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WinNT NTLMv2 1.xpl < prev    next >
Text File  |  1999-06-12  |  2KB  |  53 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="4"
  4. "UIPATH"="Network\Security\NTLM v2 Authentication"
  5. "NAME"="Client Options"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Level 0: Never use NTLM v2 authentication"
  9. "TEXT 2"="Level 1: Use NTLM v2 only if the server supports it"
  10. "TEXT 3"="Level 2: Use NTLM, but not NTLM v2"
  11. "TEXT 4"="Level 3 (most secure): Use *ONLY* NTLM v2"
  12. "WARNING"="Setting this option to an incorrect value can prevent you from connecting to your network! Only change it if you are 100% sure what you are doing!"
  13. "DESCRIPTION 1"="With Windows NT SP 4, NT offers the new "NTLM v2" authentication which is much saver than LM (Windows 3.1, 9x) or NTLM (NT 3.51, NT 4.0 SP1-3) authentication because of 128 bit DES keys."
  14. "DESCRIPTION 2"="However, both your computer and the server must have SP4 or the connection might fail. If you are unsure, use "Level 1" which will use NTLM v2 for servers that support it and the old NTLM or LM for servers that don't. "
  15. "DESCRIPTION 3"=""Level 2" will ALWAYS use the stronger NTLM authentication, but will not use NTLM v2 (fails when connecting to Win 3.x or Win 9x servers)."
  16. "DESCRIPTION 4"=""Level 3" is the most secure because it only uses NTLM v2 but if the server has no SP4 installed, the connection will fail. "
  17. "DESCRIPTION 5"="For more information, please see Microsoft KB Q147706"
  18. "AUTHOR"="Xteq Systems"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  21.  
  22.  
  23. sPath="HKLM\System\CurrentControlSet\Control\LSA\LMCompatibilityLevel"
  24.  
  25.  
  26. Sub Plugin_Initialize 
  27.  i=RegReadValue(sPath)
  28.  
  29.  if IsEmpty(i) or i=0 then SetUIElement 1,true
  30.  if i=1 then SetUIElement 2,true
  31.  if i=2 then SetUIElement 3,true
  32.  if i=3 then SetUIElement 4,true
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  i=-1
  40.  
  41.  if GetUiElement(1)=true then i=0
  42.  if GetUiElement(2)=true then i=1
  43.  if GetUiElement(3)=true then i=2
  44.  if GetUiElement(4)=true then i=3
  45.  
  46.  if i>-1 then
  47.     Call RegWriteValue(sPath,i,2)
  48.  end if
  49. End Sub
  50.  
  51. Sub Plugin_Terminate 
  52. End Sub
  53.